vba 窗体位置随鼠标位置变化

您所在的位置:网站首页 vba 指定窗体显示在工作表位置 vba 窗体位置随鼠标位置变化

vba 窗体位置随鼠标位置变化

#vba 窗体位置随鼠标位置变化| 来源: 网络整理| 查看: 265

目录

步骤

控件工具栏

控件的顺序

控件的组合

步骤

步骤1  在工作表中插入一个按钮,将其命名为CommandButton1,Caption属性为“显示窗体”。 步骤2  按组合键【Alt+F11】打开VBE。 步骤3  选择菜单“插入”→“用户窗体”。 步骤4  在“工程资源管理器”中双击之前插入的窗体,在“控件”工具箱中将CommandButton控件拖入窗体中,并调整大小和位置,如所图所示。

步骤5  在“工程资源管理器”中右键单击之前插入的窗体,选择“查看代码”,如图所示,然后在代码编辑窗口中输入以下代码。 

Option Explicit Private Sub CommandButton1_Click() '将活动单元格的填充色改为红色 ActiveCell.Interior.Color = vbRed End Sub

 步骤6  在“工程资源管理器”中双击“Sheet1”工作表,并输入以下代码。

Option Explicit Private Sub CommandButton1_Click() UserForm1.Show End Sub

步骤7  返回工作表界面,退出设计模式,然后单击按钮“显示窗体”,即可弹出窗体。单击窗体中的按钮,即可将当前活动单元格的填充色改为红色,如图所示。

控件工具栏

    在窗体的控件工具栏中,可以找到各种常用的ActiveX控件,这些控件与工作表中的ActiveX控件相同,可以随意添加至窗体中。当用户需要在该工具栏中添加更多的ActiveX控件时,可以按照右键单击该工具栏→添加控件→选择控件→确定的步骤进行,如图所示。

 当需要将控件工具栏中的控件添加至窗体时,可以使用以下两种方法。

鼠标左键单击工具栏中的控件并按住不放,同时移动鼠标将控件拖曳至窗体中,然后释放鼠标左键。鼠标左键单击工具栏中的控件,在窗体中使用鼠标左键画出一个矩形框。

当控件添加至窗体后,可以任意移动或者改变大小,如图所示。

窗体中控件的使用方法和常用属性与工作表中的ActiveX控件几乎相同,其事件也几乎相同,只是个别的名称发生了变化,如:

窗体中的控件添加了Enter与Exit事件,工作表ActiveX控件与之对应的是GetFocus和LostFocus事件。窗体中的控件添加了SetFocus方法,工作表ActiveX控件与该方法对应的是Activate。 控件的顺序

    在窗体运行时,用户可以通过按【Tab】键在各个控件中循环切换激活状态。一般情况下,各个控件的顺序是由控件添加的先后顺序决定的。开发者若需要改变该顺序,可以在窗体中右键单击鼠标后参照图所示的步骤进行。

控件的组合

  某些控件是以组为单位使用的,如“选项按钮”OptionButton控件,一般在窗体中插入多个“选项按钮”后,只能同时仅有一个按钮被选中。但通常情况下,“选项按钮”在不同组中都应有一个能够被选中,此时应该使用“框架”控件对窗体中的各个控件进行分组,可以参考以下步骤插入两组各有两个“选项按钮”实现在不同的组中各自选中一个“选项按钮”。 (1)在窗体插入两个“框架”控件Frame。 (2)选中其中一个“框架”控件,在“控件工具箱”中选中“选项按钮”,在窗体的框架控件上画一个“选项按钮”控件,并以此方法在该“框架”控件中插入另一个选项按钮,如图所示。

 (3)选中另一个“框架”控件,在“控件工具箱”中选中“选项按钮”,在窗体的框架控件上画一个“选项按钮”控件,并以此方法在该“框架”控件中插入另一个选项按钮。 (4)运行并显示窗体,可以实现在两个“框架”中的“选项按钮”各自被选中,如图所示。

 



【本文地址】


今日新闻


推荐新闻


CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3